home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / DASLOGO.DMO < prev    next >
Text File  |  1996-07-04  |  22KB  |  315 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   DASLOGO .DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16. $endif
  17.  
  18. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  19. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  20.  
  21. $INCLUDE "DAS-NB01.INC"
  22. $INCLUDE "DAS-NBT1.INC"
  23.  
  24. TBoxFILL 1, 1, 25, 80, 88, 112     ' PUT SOME STUFF ON THE SCREEN
  25. DELAY 2                            ' PAUSE FOR EFFECT
  26. DASoftLOGO 0                       ' DO IT!
  27.  
  28. ' ───────────────────────────────────────────────────────────────────────────
  29.  
  30. SUB DASoftLOGO ( BYVAL Pause! ) LOCAL PUBLIC
  31.   LOCAL C?, D?(), I%, R?, S?(), T$(), X%
  32.  
  33.   RESTORE DASoftDATA                          '┌─────────────────────────────
  34.   COLOR 7,0,0                                 '│
  35.   DIM D?(191), S?(3999), T$(3)                '│
  36.   DACreadArr D?(0), 64                        '│ hold original DAC settings
  37.   Fade2Arr S?(0), 64                          '│ fade out!
  38.   DELAY .5                                    '│
  39.   FOR X% = 0 TO 3999 : READ S?(X%) : NEXT     '│ get the screen data
  40.   QcopyArr S?(0), BYVAL &hB8000000, 4000      '│ B800:0000 or Apage 0
  41.   Fade2Arr D?(0), 64                          '│ fade in
  42.   '────────────────────────────────────────────┤
  43.   T$(3) = "    +    "                         '│ little   ┐ English lesson
  44.   T$(2) = "   ─┼─   "                         '│ big      │
  45.   T$(1) = " │ ─┼─ │ "                         '│ bigger   │
  46.   T$(0) = " ║ ═╬═ ║ "                         '│ biggest  ┘
  47.   PLAY "MBN79"                                '│ twinkle noise
  48.   C? = 51                                     '│ 1st star column
  49.   FOR R? = 2 TO 17 STEP 15                    '│ 2 stars ( R? = row )
  50.     FOR I% = -3 TO 3                          '│ 8 reps for each star
  51.       SetDelay 36                             '│ timing
  52.       X% = ABS( I% )                          '│
  53.       TprintTEXT R?,C?,3,3,T$(X%),0,0,0,15    '│
  54.       EndDelay                                '│
  55.       IF I% = 0 THEN Mdelay 120               '│ pause at 1/2 way mark
  56.     NEXT                                      '│
  57.     Tprint R?+1, C?+1, " ", 0                 '│ clean off "+"
  58.     IF R? = 17 THEN EXIT FOR                  '│
  59.     C? = 72 : Mdelay 200 : PLAY "N82"         '│ new col, pause, make noise
  60.   NEXT                                        '│
  61.   IF Pause! > 0 THEN DELAY Pause!             '│ requested pause
  62.   ' ───────────────────────────────────────────┴─────────────────────────────
  63.   DASoftDATA:
  64.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  65.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  66.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  67.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  68.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  69.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  70.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  71.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  72.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  73.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  74.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  75.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  76.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  77.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  78.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  79.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  80.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  81.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  82.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  83.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  84.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  85.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  86.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  87.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  88.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  89.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  90.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  91.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  92.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  93.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  94.     DATA 032,015,032,015,032,015,176,009,176,009,176,009,176,009,176,009
  95.     DATA 221,009,176,009,176,009,176,009,176,009,176,009,176,009,221,009
  96.     DATA 196,011,191,011,032,015,032,015,032,015,032,015,032,015,032,015
  97.     DATA 176,009,176,009,176,009,176,009,176,009,221,009,196,011,191,011
  98.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,176,009,176,009
  99.     DATA 176,009,176,009,176,009,176,009,176,009,176,009,176,009,176,009
  100.     DATA 221,009,191,011,032,015,032,015,032,015,032,015,032,015,032,015
  101.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  102.     DATA 176,009,176,009,176,009,176,009,221,009,191,011,032,015,032,015
  103.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  104.     DATA 032,015,032,015,032,015,192,011,196,011,176,009,176,009,176,009
  105.     DATA 221,009,191,011,192,011,196,011,196,011,176,009,176,009,176,009
  106.     DATA 221,009,192,011,191,011,032,015,032,015,032,015,032,015,176,009
  107.     DATA 176,009,176,009,221,009,176,009,176,009,176,009,221,009,192,011
  108.     DATA 191,011,032,015,032,015,032,015,032,015,176,009,176,009,176,009
  109.     DATA 221,009,218,011,196,011,196,011,196,011,196,011,176,009,176,009
  110.     DATA 176,009,221,009,191,011,032,015,032,015,032,015,032,015,032,015
  111.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,176,009
  112.     DATA 176,009,176,009,221,009,176,009,176,009,221,009,191,011,176,009
  113.     DATA 221,009,191,011,032,015,032,015,032,015,032,015,032,015,032,015
  114.     DATA 032,015,032,015,032,015,032,015,032,015,177,009,177,009,177,009
  115.     DATA 221,009,179,011,032,015,032,015,032,015,032,015,177,009,177,009
  116.     DATA 177,009,221,009,179,011,032,015,032,015,032,015,177,009,177,009
  117.     DATA 177,009,221,009,218,011,032,015,177,009,177,009,177,009,221,009
  118.     DATA 179,011,032,015,032,015,032,015,177,009,177,009,177,009,221,009
  119.     DATA 218,011,217,011,032,015,032,015,032,015,032,015,032,015,192,011
  120.     DATA 196,011,196,011,217,011,032,015,032,015,032,015,032,015,032,015
  121.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,177,009
  122.     DATA 177,009,221,009,179,011,192,011,196,011,196,011,217,011,177,009
  123.     DATA 177,009,221,009,191,011,032,015,032,015,032,015,032,015,032,015
  124.     DATA 032,015,032,015,032,015,032,015,032,015,177,009,177,009,177,009
  125.     DATA 221,009,179,011,032,015,032,015,032,015,032,015,177,009,177,009
  126.     DATA 177,009,221,009,179,011,032,015,032,015,032,015,177,009,177,009